home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet multimedia / Animacje, filmy i prezentacje / Modelowanie 3D / K-3D 0.6.5.0 / k3d-all-in-one-setup-0.6.5.0.exe / k3d-setup-0.6.5.0.exe / share / lsystem / cees-pascal-cube2.ls < prev    next >
Encoding:
Text File  |  2005-02-12  |  577 b   |  21 lines
  1. #╔═════════════════╤═══════════════════════════════╗
  2. #║   Pascal2.ls    │    (c) C.J. van der Mark      ║
  3. #╟─────────────────┴───────────────────────────────╢
  4. #║      Questions about Lparser files to:          ║
  5. #║        Internet  cvdmark@xs4all.nl              ║
  6. #║           Fido      2:283/203.11                ║
  7. #╚═════════════════════════════════════════════════╝
  8. #      This file produces a Pascal diamond
  9. 6
  10. 45
  11. 1
  12. D
  13. D=C>>C>>C>>C
  14. C=[[B]<<|[B]]
  15. A={[[++f][^^f]f[+++"(1.4142)f]{[^^^"(1.4142)f&+++f]}]}['(0.5)B]++f--
  16. B=[[AA++^^^"(1.4142)f"(.7071)^f|&&A]fA]++ff--
  17. #
  18. {=_
  19. }=_
  20. @
  21.